Public Const Lmt_MyTrialDays = 7


    If bln_LicencedFeature = False Then
        'dba If bln_LimitExceed = True Then frm_Trial.Show 'vbModal
        Check_LimitExceed = False 'dba bln_LimitExceed
        If int_RecordCounter < int_LimitRecordCounter Then
            'dba MsgBox "You Are Using Limited Edition / Trial Version. " & "You Can Make " & int_LimitRecordCounter - int_RecordCounter & " Entrie(s) More.", vbCritical, "Limited Edition / Trial Version"
        End If
    Else
        Check_LimitExceed = False
    End If

Function check_LimitExceedDays() As Boolean
Dim str_SQL As String

    If Licenced_Business = False Then
        str_SQL = "SELECT COUNT(*) AS Counter, VoucherDate From Voucher GROUP BY VoucherDate ORDER BY VoucherDate "
        With cN.Execute(str_SQL)
            If .RecordCount > Lmt_MyTrialDays Then
                check_LimitExceedDays = True
            Else
                check_LimitExceedDays = False
            End If
        End With
    Else
        check_LimitExceedDays = False
    End If
        
End Function

If check_LimitExceedDays = True Then frm_Trial.Show